home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD008b.dsk / STARS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  76 lines
  1. 50  HOME : VTAB 7: HTAB 12
  2. 55  PRINT "***  STARS  ***"
  3. 60  PRINT : PRINT : HTAB 12: PRINT "BROUGHT TO YOU"
  4. 65  PRINT : PRINT : HTAB 18: PRINT "BY"
  5. 70  PRINT : PRINT : HTAB 10
  6. 72  PRINT "COMPUTER ADVENTURES"
  7. 75  PRINT : PRINT : HTAB 14: PRINT "SUMMER, 1981"
  8. 100  VTAB 24: INPUT "PRESS RETURN TO CONTINUE ";RR$
  9. 150 A = 100:M = 7
  10. 160  HOME : VTAB 5: HTAB 5
  11. 165  PRINT "DO YOU WANT INSTRUCTIONS?"
  12. 170  PRINT : HTAB 15: INPUT A$
  13. 180  IF  LEFT$(A$,1) = "N"  THEN 310
  14. 200  REM  ** INSTRUCTIONS **
  15. 210  HOME : VTAB 5: HTAB 5
  16. 215  PRINT "I AM THINKING OF A NUMBER FROM"
  17. 220  PRINT : HTAB 5: PRINT "1 TO ";A".  TRY TO GUESS MY NUMBER."
  18. 230  PRINT : HTAB 5: PRINT "AFTER YOU GUESS, I WILL TYPE "
  19. 240  PRINT : HTAB 5: PRINT "ONE OR MORE STARS (*).  THE MORE "
  20. 250  PRINT : HTAB 5: PRINT "STARS I TYPE, THE CLOSER YOU "
  21. 260  PRINT : HTAB 5: PRINT "ARE TO MY NUMBER.  ONE STAR "
  22. 270  PRINT : HTAB 5: PRINT "(*) MEANS FAR, FAR AWAY.  SEVEN"
  23. 280  PRINT : HTAB 5: PRINT "STARS (*******) MEANS REALLY"
  24. 290  PRINT : HTAB 5: PRINT "CLOSE.  YOU GET ";M;" GUESSES."
  25. 300  PRINT : PRINT : INPUT "PRESS RETURN TO CONTINUE ";RR$
  26. 310 X =  INT(A * RND(1) +1)
  27. 320  HOME : VTAB 5: HTAB 5
  28. 330  PRINT "OK, I'M THINKING OF A NUMBER."
  29. 340  PRINT : HTAB 5: PRINT "YOU TYPE IN YOUR GUESS FROM 1"
  30. 350  PRINT : HTAB 5: PRINT "TO ";A;"."
  31. 360  FOR K = 1 TO M
  32. 370  PRINT : HTAB 10: INPUT "YOUR GUESS ";G
  33. 380  IF G = X  THEN 600
  34. 385 D =  ABS(G -X)
  35. 390  IF D > = 64  THEN 510
  36. 400  IF D > = 32  THEN 500
  37. 410  IF D > = 16  THEN 490
  38. 420  IF D > = 8  THEN 480
  39. 430  IF D > = 4  THEN 470
  40. 440  IF D > = 2  THEN 460
  41. 444 :
  42. 445  REM  PRINT CHR$(7) WILL RING THE BELL
  43. 446 :
  44. 450  PRINT "*"; CHR$(7);
  45. 460  PRINT "*"; CHR$(7);
  46. 470  PRINT "*"; CHR$(7);
  47. 480  PRINT "*"; CHR$(7);
  48. 490  PRINT "*"; CHR$(7);
  49. 500  PRINT "*"; CHR$(7);
  50. 502 :
  51. 503  REM   THE TRAILING SEMI-COLON
  52. 504  REM   IS VERY IMPORTANT.  TRY
  53. 505  REM   RUNNING THE PROGRAM 
  54. 506  REM   WITHOUT IT.  
  55. 507 :
  56. 510  PRINT "*";
  57. 520  PRINT : NEXT K
  58. 560  PRINT : HTAB 5: PRINT "SORRY, BUT THAT WAS ";M;" GUESSES."
  59. 570  PRINT : HTAB 5: PRINT "THE NUMBER WAS ";X
  60. 580  PRINT : INPUT "PRESS RETURN TO CONTINUE ";RR$
  61. 590  GOTO 680
  62. 600  FOR N = 1 TO 80
  63. 610  PRINT "*";: NEXT N
  64. 630  PRINT : HTAB 18: PRINT "!!!!!"
  65. 640  PRINT : HTAB 5: PRINT "YOU GOT IT IN ";K;" GUESSES."
  66. 650  PRINT : PRINT : FOR N = 1 TO 80
  67. 660  PRINT "*";: NEXT N
  68. 670  VTAB 22: INPUT "PRESS RETURN TO CONTINUE ";RR$
  69. 680  HOME : VTAB 5: HTAB 5
  70. 690  PRINT "DO YOU WANT TO PLAY AGAIN? "
  71. 695  PRINT 
  72. 700  HTAB 15: INPUT AE$
  73. 710  IF  LEFT$(AE$,1) = "Y"  THEN  GOTO 310
  74. 720  PRINT : HTAB 5: PRINT "I HOPE YOU ENJOYED THIS GAME "
  75. 730  PRINT : HTAB 5: PRINT "FROM COMPUTER ADVENTURES TODAY."
  76. 740  PRINT : PRINT : HTAB 16: PRINT "GOOD BYE"